(prompt "Copying AmiTCP Control Panel Main Prefs to s:cp.config")
(help @copyfiles-help)
(source "ram:cp6/s/cp.config.amiconnect")
(dest "s:")
(confirm)
(newname "cp.config")
)
(run "delete ram:cp#? all quiet")
(complete 45)
(makedir "amitcp:usr"
(infos)
(safe)
)
(makedir "amitcp:usr/mail"
(infos)
(safe)
)
(makedir "amitcp:usr/news"
(infos)
(safe)
)
(makedir "amitcp:usr/spool"
(infos)
(safe)
)
(makedir "amitcp:usr/lib"
(infos)
(safe)
)
(set intro "; This file contain assigns to important directories\n")
(set intro2 "; You may need to change the from what values are set\n")
(set firststline "path amitcp:bin add \n")
(set line1 "assign usr: amitcp:usr\n")
(set line2 "assign uunews: amitcp:usr/news\n")
(set line3 "assign uumail: amitcp:usr/mail\n")
(set line4 "assign uuspool: amitcp:usr/spool\n")
(set line5 "assign uulib: amitcp:usr/lib\n")
(set line6 "assign inet: amitcp: \n")
(textfile
(dest "amitcp:bin/amiconnect.dos")
(append intro)
(append intro2)
(append firstline)
(append line1)
(append line2)
(append line3)
(append line4)
(append line5)
(append line6)
)
(run "execute amitcp:bin/amiconnect.dos")
(textfile
(dest "t:newsgroups")
(append "comp.sys.amiga.announce 7\n")
(append "comp.sys.amiga.misc 7\n")
(append "demon.ip.support.amiga 7\n")
)
(textfile
(dest "uulib:seq")
(append "1")
)
(run "type t:newsgroups >> uulib:newsgroups"
)
(set line1 ("Assign Amitcp: %s \n" amitcpdir))
(set line15 ("Assign Inet: %s \n" amitcpdir))
(set line2 ("Assign Cp: %s \n" cp5))
(set line3 "path amitcp:bin add \n")
(set line4 "path cp: add \n")
(set line5 "alias ftp ncftp\n")
(complete 50)
(message "We must now setup Amiconnect\nWe will start with your User Details"
(help "You need to set up various environment variable so that Amiconnect will function correctly.\nThe following part of the installer will assist in this procedure")
(safe)
)
(set username
(askstring
(prompt "Enter Your User Name")
(help "Your user name is the bit before the @ in you email address\ne.g. USERNAME@nodename.domainname\n\nThis should be a single word")
(default "John")
)
)
(set nodename
(askstring
(prompt "Enter Your Node Name")
(help "Your node name is the bit directly after the @ in you email address\ne.g. username@NODENAME.domainname\n\nThis should be a single word")
(default "unix")
)
)
(set domainname
(askstring
(prompt "Enter Your Doamin Name")
(help "Your domain name is the last bit of your email address\ne.g. username@nodename.DOMAINNAME\n\nThis should start with a .")
(prompt "Adding assigns and paths to s:user-startup")
(help @startup-help)
(command line1)
(command line15)
(command line2)
(command line3)
(command line4)
(command line5)
(command line6)
)
(textfile
(dest "env:ac!home")
(append home)
)
(complete 55)
(textfile
(dest "env:ac!email")
(append acemail)
)
(set realname
(askstring
(prompt "Enter Your Real Name")
(help "This is the name which will be sent with your mail and news messages\nIt helps people see who you really are, if you do not set this you will be known as realname")
(message "We now need to setup your modem details, this may be tricky, so have your modem manual handy."
(safe)
)
(set serial
(askfile
(prompt "What serial device driver are you using?")
(help "This is the program that allows the Amiga to talk to the modem via your serial port.\n\nThe driver supplied with your Amiga is called serial.device but you are advised to use an improved driver such as artser.device")
(default "devs:serial.device")
)
)
(textfile
(dest "env:ac!serial")
(append serial)
)
(set devno
(asknumber
(prompt "What serial port number are you using?")
(help "The inbuilt serial port is 0, unless you have an additional serial ports added to your Amiga you should use this port")
(default "0")
)
)
(textfile
(dest "env:ac!devno")
(append devno)
)
(set bdrte
(askchoice
(prompt "What baud rate do you wish to use?")
(help "This is the rate that your Amiga communicates with the modem.\n\nIf you are using a 14400 modem use 19200 or 38400\nIf you are using a 28800 modem use 38400 or 57600\n\nPlease note a standard Amiga will not cope with rates above 57600.")
(help "This is the command you send to you modem to reset/initialise it.\n This is nearly always ATZ")
(default "ATZ")
)
)
(textfile
(dest "env:ac!init")
(append init)
)
(set dial
(askstring
(prompt "Enter Your Modems Dial Command")
(help "This will depend on whether you are connected to a pulse dial exchange or a tone dial compatable exchange\nMost modern exchanges are tone dial and the usual command is ATDT, for pulse dial it is usually ATDP.")
(default "ATDT")
)
)
(textfile
(dest "env:ac!dial")
(append dial)
)
(set helpdtr "The DTR (Data Terminal Ready) signal tells the modem to drop the call once all data has stopped.\n As amiconnect needs to stop data transmission while it switches from the serial device to the network (slip/ppp) driver, we need to overide")
(set helpdtr2 "this signal.\n\n On a USRobotics Sportster modem this command is AT&d0")
(set helpdtrt
(cat helpdtr helpdtr2)
)
(set dtr_on
(askstring
(prompt "Enter the command to\noveride DTR (Data Terminal Ready)")
(help helpdtrt)
(default "AT&d0")
)
)
(textfile
(dest "env:ac!dtr_on")
(append dtr_on)
)
(set dtr_off
(askstring
(prompt "Enter the command to disable\n the DTR (Data Terminal Ready) overide")
(help "This is the command which resets the DTR (Data Terminal Ready) overide to off.\n\nFor a USRobotics Sportster this is AT&d2")
(default "AT&d2")
)
)
(textfile
(dest "env:ac!dtr_off")
(append dtr_off)
)
(set hang
(askstring
(prompt "Enter the command to hang up the modem")
(help "This command is needed to disconnect your modem call to your service provider, failure to set this correctly could lead to a very large telephone bill!\n\nThe usual command is ATH")
(default "ATH")
)
)
(textfile
(dest "env:ac!hang")
(append hang)
)
(set cmd
(askstring
(prompt "What is the escape code to return your modem to command mode?")
(help "This command is needed to switch your modem into its command mode in the middle of data transmission. It is referred to commonly as the escape code.\n\nOn USRobotics Sportster Modems it is +++")
(default "+++")
)
)
(textfile
(dest "env:AC!cmd")
(append cmd)
)
(set dte1 "This is probably the most problematic command to enter.\n In manuals it may be referred to as the DTE Rate, Terminal to Modem, serial port rate or simply Data Rate.")
(set dte2 "\nYou need to set this command so that the data rate is fixed.\n\n On a USRobotics Sportster the command is at&b1\n\nOn some other modems the command is /n")
(complete 65)
(set dtehelp
(cat dte1 dte2)
)
(set datarate
(askstring
(prompt "Enter the command to set the serial port data rate (DTE)")
(help dtehelp)
(default "AT&b1")
)
)
(textfile
(dest "env:ac!datarate")
(append datarate)
)
(set ok
(askstring
(prompt "What string does your modem return when a command has been completed successfully?")
(help "This is usually OK.\n\nIf this isn't set correctly Amiconnect will not know whether your modem has completed what it has been asked to do")
(default "OK")
)
)
(textfile
(dest "env:ac!ok")
(append ok)
)
(textfile
(dest "env:ac!ipno")
(append "0.0.0.0")
)
(set gate "0.0.0.0")
(textfile
(dest "env:ac!gate")
(append gate)
)
(set defmailserver ("mail%s" domainname))
(set defnewsserver ("news%s" domainname))
(set mailserver
(askstring
(prompt "Enter The Name Of Your MailServer")
(help @askstring-help)
(default defmailserver)
)
)
(set newsserver
(askstring
(prompt "Enter The Name Of Your News Server")
(help @askstring-help)
(default defnewsserver)
)
)
(textfile
(dest "env:ac!mailserver")
(append mailserver)
)
(textfile
(dest "env:ac!newsserver")
(append newsserver)
)
(set pop1
(askstring
(prompt "Enter the name of your main pop")
(help "It is suggested that you enter the location of the main pop here such as London.")
(default "Yourtown")
)
)
(textfile
(dest "env:ac!pop1")
(append pop1)
)
(set phone1
(askstring
(prompt "Enter the phone number of your main pop")
(help "Enter the phone number you usually dial to connect your computer to the internet")
(default "01234 5678")
)
)
(textfile
(dest "env:ac!phone1")
(append phone1)
)
(set pop2
(askstring
(prompt "Enter the name of your backup pop")
(help "Many providers have additional pops which you may use when your pop is down or engaged, if so enter your second choice of pop here.")
(default "Yourtown")
)
)
(textfile
(dest "env:ac!pop2")
(append pop2)
)
(set phone2
(askstring
(prompt "Enter the phone number of your backup pop")
(help "Enter the phone number you dial if your first pop is unable to connect your computer to the internet")
(default "01234 5678")
)
)
(textfile
(dest "env:ac!phone2")
(append phone2)
)
(set login1 "The standard login procedure will cope with most service providers. If your login procedure is similar to that below please use the standard procedure, otherwise you will need to use the advanced login")
(set login2 "\n\nSystem sends login/username prompt, you reply with username\nThe system then sends password prompt, you reply with your password\nThe system then asks what protocol you are using (slip or PPP), you reply either slip or ppp\n")
(set login3 "you are then logged on and on the net.\n\n the actual prompts can be changed but they need to be in the above order and shouldn't have any additional requests for information\n\n")
(set login4 "The advanced login requires you to enter quite a bit of data, so it is advised that if unsure you try the standard login first and then if that fails use the advanced login script to attempt to setup the advanced login.")
(set loginhelp
(cat login1 login2 login3 login4)
)
(set logintype
(askbool
(prompt "Do you want to use the standard or advanced login procedure?\n\n(Please see help for more details)")
(help loginhelp)
(choices "Standard Login" "Advanced Login")
(default 1)
)
)
(if (= logintype 1)
;Standard login clauses
(
(set acprompt
(askstring
(prompt "Enter login prompt")
(help "This is the initial prompt which is usually Login: or User:\nIt is often advisable to miss off the first character so login: would be ogin:")
(default "ogin:")
)
)
(textfile
(dest "env:ac!prompt")
(append acprompt)
)
(set loginname
(askstring
(prompt "Enter your response to the login prompt")
(help "This is usually your username or your nodename")
(default username)
)
)
(textfile
(dest "env:ac!loginname")
(append loginname)
)
(set passprompt
(askstring
(prompt "Enter the prompt that requests your password")
(help "What text is displayed just before you usually enter your password?\nThis is usually pass: or password:")
(default "assword:")
)
)
(textfile
(dest "env:ac!passprompt")
(append passprompt)
)
(set password
(askstring
(prompt "Enter your password")
(help "What do you type when asked for your password")
(default "********")
)
)
(textfile
(dest "env:ac!password")
(append password)
)
(textfile
(dest "env:ac!loginscript")
(append "NOCUSTOMSCRIPTNEEDED")
)
(set protocol
(askstring
(prompt "Enter the protocol prompt")
(help "This is the prompt that asks what protocol you are using.\nAmiconnect will reply to this prompt with either slip or ppp depending on how you set up the modem details")
(default "rotocol:")
)
)
(textfile
(dest "env:ac!protocol")
(append protocol)
)
)
(
(set sendcmd "#")
(textfile
(dest "amitcp:db/aclogonscript")
)
(until (= sendcmd "\0")
(
(set rcvcmd
(askstring
(prompt "Enter Prompt\n\n(leave blank to exit dialscript editor)")
(help "Enter the text which your internet provider has sent for you to reply to, e.g. login:")
)
)
(set sendcmd
(askstring
(prompt "Enter Response To Prompt - " rcvcmd " \n\n(leave blank to exit dialscript editor)")
(help "Enter the text which you send after receiving the prompt mentioned in previous data entry box")
